(find-alternate-file): Kill any preexisting ` **lose**' buf.

diff --git a/lisp/files.el b/lisp/files.el
index f1a4509a32d2ac56b9479e95e8fa2155bf1fa6e9..fc38769f70349c0827cfe389f38c2c15606d450c 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -535,6 +535,8 @@ If the current buffer now contains an empty file that you just visited
        (onum buffer-file-number)
        (otrue buffer-file-truename)
        (oname (buffer-name)))
+    (if (get-buffer " **lose**")
+       (kill-buffer " **lose**"))
     (rename-buffer " **lose**")
     (setq buffer-file-name nil)
     (setq buffer-file-number nil)